home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / avidem / mmptest1.frm < prev   
Text File  |  1995-05-08  |  795b  |  32 lines
  1. VERSION 2.00
  2. Begin Form MMPTest1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Command1"
  18.       Height          =   735
  19.       Left            =   1800
  20.       TabIndex        =   0
  21.       Top             =   1080
  22.       Width           =   1455
  23.    End
  24. End
  25. Sub Command1_Click ()
  26. Dim FileHandle As Integer
  27. Dim Beeper As Double
  28. Beeper = 0
  29. FileHandle = MessageBeep(Beeper)
  30. End Sub
  31.  
  32.